NFL Analytics: a review of Expected Points Added

nfl_analytics_theme <- function(..., base_size = 12) {
  
  theme(
    text = element_text(family = "Roboto",
                        size = base_size,
                        color = "black"),
    axis.ticks = element_blank(),
    axis.title = element_text(face = "bold"),
    axis.text = element_text(face = "bold"),
    plot.title.position = "plot",
    plot.title = element_markdown(size = 16,
                                  vjust = .02,
                                  hjust = 0.5),
    plot.subtitle = element_markdown(hjust = 0.5),
    plot.caption = element_markdown(size = 8),
    panel.grid.minor = element_blank(),
    panel.grid.major =  element_line(color = "#d0d0d0"),
    panel.background = element_rect(fill = "#f7f7f7"),
    plot.background = element_rect(fill = "#f7f7f7"),
    panel.border = element_blank(),
    legend.background = element_rect(color = "#F7F7F7"),
    legend.key = element_rect(color = "#F7F7F7"),
    legend.title = element_text(face = "bold"),
    legend.title.align = 0.5,
    strip.text = element_text(face = "bold"))
}

teams <- nflreadr::load_teams()

This looks like a good article on EPA.

Offensive EPA

play_by_play_2024

── nflverse play by play data ──────────────────────────────────────────────────────────────────────────────────────────
ℹ Data updated: 2024-10-14 05:20:52 EDT

What’s the combined record of teams in each quadrant?

play_by_play_2024 %>% 
  filter(defteam == 'PIT') %>% 
  select(posteam, defteam, home_team, contains('epa'), everything()) %>% 
  arrange(epa)

── nflverse play by play data ──────────────────────────────────────────────────────────────────────────────────────────
ℹ Data updated: 2024-10-14 05:20:52 EDT